library(data.table)

library(sandwich)
library(lmtest)

library(AER) 
library(dplyr)


library(ggplot2) 
library(patchwork)
#Read in the data
d <- fread('joined_results_2nd_run.tsv')


head(d)
names(d)
##  [1] "V1"                      "id"                     
##  [3] "question"                "sexual_orientation"     
##  [5] "age"                     "marital_status"         
##  [7] "demographic_race"        "gender"                 
##  [9] "ethnicity"               "residency_type"         
## [11] "education"               "RE_job"                 
## [13] "ownership"               "treatment"              
## [15] "property_chosen"         "abs_value_diff"         
## [17] "value_diff"              "p_id"                   
## [19] "Index"                   "question_treatment"     
## [21] "question_control"        "population_density"     
## [23] "walk_score"              "median_household_income"
## [25] "median_age"              "nb_race"                
## [27] "median_rooms_rounded"    "bedrooms"               
## [29] "bathrooms"               "sq_ft"                  
## [31] "year_built"              "housing_density"        
## [33] "median_male_age"         "pct_white"              
## [35] "school_districts"        "pct_lt_hs_grad"         
## [37] "median_rooms"            "pct_hs_grad"            
## [39] "pct_at_least_col_grad"   "GEOID"                  
## [41] "state"                   "tract"                  
## [43] "NAME"                    "ALAND"                  
## [45] "ALAND_SQMI"              "county"                 
## [47] "Pair_ID"                 "INTPTLAT"               
## [49] "INTPTLONG"               "iframe"                 
## [51] "Racial majority detail"
#Filter to where user input property == potential response Property
d_filtered = d
d_filtered
#For every row, create a column that is the value difference of white to non white
#i.e. If race==white of response, abs_value_diff, else use -abs_value_diff

#Using data.table fifelse
d_filtered[ , white_value_diff := fifelse(nb_race=="white", abs_value_diff, -abs_value_diff)]

d_filtered[ ,log_abs_diff := log(abs_value_diff)]
d_filtered[, log_white_diff := fifelse(nb_race=="white", log_abs_diff, -log_abs_diff)]


#Create a column with 0/1 if neighborhood is white
d_filtered[ , nb_is_white := fifelse(nb_race=="white", 1, 0)]
#Create a variable for whether street view contained a person

d_filtered[ , street_view_person := rep(0, .N)]

#Change Property 1 & 3s to 1
d_filtered[ (property_chosen == "Property 1") & (question == "3s") , street_view_person := 1] 

#Change both Properties of 10s to 1
d_filtered[  (question == "10s") , street_view_person := 1] 

#Change property 2 of 11s to 1
d_filtered[  (property_chosen == "Property 2") &(question == "11s") , street_view_person := 1] 

#Change property 1 of 13s to 1
d_filtered[  (property_chosen == "Property 1") &(question == "13s") , street_view_person := 1] 

#Change property 2 of 14s to 1
d_filtered[  (property_chosen == "Property 2") &(question == "14s") , street_view_person := 1] 

#Change property 1&2 of 18s to 1
d_filtered[  (question == "18s") , street_view_person := 1] 

#Change property 1 of 20s to 1
d_filtered[  (property_chosen == "Property 1") &(question == "20s") , street_view_person := 1] 

#Change property 1 of 25s to 1
d_filtered[  (property_chosen == "Property 1") &(question == "25s") , street_view_person := 1] 


d_filtered
ggplot(data =d_filtered[ treatment==0, ], aes(d_filtered[ treatment==0, white_value_diff])) +
  geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

ggplot(data =d_filtered[ treatment==1, ], aes(d_filtered[ treatment==1, white_value_diff])) +
  geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

fwrite(d_filtered, "filtered_data_2.csv")
df = data.table::fread("filtered_data_2.csv")
df
names(df)
##  [1] "V1"                      "id"                     
##  [3] "question"                "sexual_orientation"     
##  [5] "age"                     "marital_status"         
##  [7] "demographic_race"        "gender"                 
##  [9] "ethnicity"               "residency_type"         
## [11] "education"               "RE_job"                 
## [13] "ownership"               "treatment"              
## [15] "property_chosen"         "abs_value_diff"         
## [17] "value_diff"              "p_id"                   
## [19] "Index"                   "question_treatment"     
## [21] "question_control"        "population_density"     
## [23] "walk_score"              "median_household_income"
## [25] "median_age"              "nb_race"                
## [27] "median_rooms_rounded"    "bedrooms"               
## [29] "bathrooms"               "sq_ft"                  
## [31] "year_built"              "housing_density"        
## [33] "median_male_age"         "pct_white"              
## [35] "school_districts"        "pct_lt_hs_grad"         
## [37] "median_rooms"            "pct_hs_grad"            
## [39] "pct_at_least_col_grad"   "GEOID"                  
## [41] "state"                   "tract"                  
## [43] "NAME"                    "ALAND"                  
## [45] "ALAND_SQMI"              "county"                 
## [47] "Pair_ID"                 "INTPTLAT"               
## [49] "INTPTLONG"               "iframe"                 
## [51] "Racial majority detail"  "white_value_diff"       
## [53] "log_abs_diff"            "log_white_diff"         
## [55] "nb_is_white"             "street_view_person"
typeof(df)
## [1] "list"
#Some attempts at writing a model


#For each question, we want the difference in counts of properties selected by is_white
new_df = df[ , .(count=.N), keyby=.(question, nb_is_white, treatment) ]
new_df
#We want to predict the difference of the counts of the is_white or not properties for each question
new_df[ , is_white_count:= diff(count, lag=1), keyby = .(question, treatment)]
new_df
model = new_df[ , lm(is_white_count ~ treatment)]

coeftest(model,  vcov = vcovCL(model, cluster = new_df[ , question]))
## 
## t test of coefficients:
## 
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)   2.0000     5.6427  0.3544   0.7248
## treatment     8.5455     8.7030  0.9819   0.3318
prop_white_model = df[, lm(nb_is_white ~ treatment + as.factor(id))]
coeftest(prop_white_model,  vcov = vcovCL(prop_white_model, cluster = df[ , as.factor(id)]))
## 
## t test of coefficients:
## 
##                     Estimate  Std. Error     t value Pr(>|t|)    
## (Intercept)       6.3636e-01  3.4670e-15  1.8355e+14  < 2e-16 ***
## treatment        -1.8182e-01  1.7877e-14 -1.0171e+13  < 2e-16 ***
## as.factor(id)73   1.8182e-01  1.7537e-14  1.0368e+13  < 2e-16 ***
## as.factor(id)74   9.0909e-02  1.9288e-14  4.7133e+12  < 2e-16 ***
## as.factor(id)77  -3.7013e-15  3.5724e-15 -1.0361e+00  0.30042    
## as.factor(id)78  -2.0553e-14  1.7908e-14 -1.1477e+00  0.25137    
## as.factor(id)79   2.2932e-15  3.5353e-15  6.4870e-01  0.51670    
## as.factor(id)80  -9.0909e-02  3.4749e-15 -2.6162e+13  < 2e-16 ***
## as.factor(id)81   1.8182e-01  1.8440e-14  9.8598e+12  < 2e-16 ***
## as.factor(id)82   2.7273e-01  1.7565e-14  1.5527e+13  < 2e-16 ***
## as.factor(id)83   9.0909e-02  3.4827e-15  2.6103e+13  < 2e-16 ***
## as.factor(id)84  -1.8182e-01  3.4687e-15 -5.2417e+13  < 2e-16 ***
## as.factor(id)85  -5.3879e-15  3.4917e-15 -1.5430e+00  0.12315    
## as.factor(id)86  -9.0909e-02  3.4717e-15 -2.6185e+13  < 2e-16 ***
## as.factor(id)87   9.0909e-02  1.7992e-14  5.0527e+12  < 2e-16 ***
## as.factor(id)88   1.8182e-01  1.7552e-14  1.0359e+13  < 2e-16 ***
## as.factor(id)89   1.8182e-01  1.7552e-14  1.0359e+13  < 2e-16 ***
## as.factor(id)90   1.8182e-01  3.4785e-15  5.2270e+13  < 2e-16 ***
## as.factor(id)91   9.0909e-02  3.4670e-15  2.6221e+13  < 2e-16 ***
## as.factor(id)92   2.7273e-01  1.7817e-14  1.5307e+13  < 2e-16 ***
## as.factor(id)93   9.0909e-02  3.4817e-15  2.6111e+13  < 2e-16 ***
## as.factor(id)94   2.7273e-01  1.7538e-14  1.5551e+13  < 2e-16 ***
## as.factor(id)95  -2.7273e-01  3.6024e-15 -7.5706e+13  < 2e-16 ***
## as.factor(id)96   9.0909e-02  3.4735e-15  2.6172e+13  < 2e-16 ***
## as.factor(id)97   2.7273e-01  1.7548e-14  1.5541e+13  < 2e-16 ***
## as.factor(id)98  -7.1342e-15  3.4690e-15 -2.0566e+00  0.03999 *  
## as.factor(id)99   9.0909e-02  1.7585e-14  5.1697e+12  < 2e-16 ***
## as.factor(id)100 -9.0909e-02  3.4858e-15 -2.6080e+13  < 2e-16 ***
## as.factor(id)101 -1.8182e-01  3.4694e-15 -5.2407e+13  < 2e-16 ***
## as.factor(id)102  9.0909e-02  1.7604e-14  5.1641e+12  < 2e-16 ***
## as.factor(id)103 -9.0909e-02  1.7538e-14 -5.1834e+12  < 2e-16 ***
## as.factor(id)104 -1.8182e-01  3.4712e-15 -5.2379e+13  < 2e-16 ***
## as.factor(id)105 -2.7273e-01  3.4683e-15 -7.8633e+13  < 2e-16 ***
## as.factor(id)106  2.7273e-01  1.7839e-14  1.5289e+13  < 2e-16 ***
## as.factor(id)107 -3.1819e-15  3.4673e-15 -9.1770e-01  0.35901    
## as.factor(id)108 -1.9819e-14  1.7628e-14 -1.1243e+00  0.26117    
## as.factor(id)109 -1.5312e-14  1.7576e-14 -8.7120e-01  0.38387    
## as.factor(id)110  1.8182e-01  1.7547e-14  1.0362e+13  < 2e-16 ***
## as.factor(id)111 -9.0909e-02  3.4729e-15 -2.6177e+13  < 2e-16 ***
## as.factor(id)112  2.7273e-01  1.7539e-14  1.5549e+13  < 2e-16 ***
## as.factor(id)113 -5.4545e-01  3.5088e-15 -1.5545e+14  < 2e-16 ***
## as.factor(id)114  9.0909e-02  3.5109e-15  2.5894e+13  < 2e-16 ***
## as.factor(id)115 -9.0909e-02  3.4798e-15 -2.6125e+13  < 2e-16 ***
## as.factor(id)116 -9.0909e-02  1.7656e-14 -5.1490e+12  < 2e-16 ***
## as.factor(id)117 -3.6364e-01  3.5060e-15 -1.0372e+14  < 2e-16 ***
## as.factor(id)118  2.7273e-01  1.7537e-14  1.5551e+13  < 2e-16 ***
## as.factor(id)119 -3.6364e-01  3.4674e-15 -1.0487e+14  < 2e-16 ***
## as.factor(id)120  2.7273e-01  1.7543e-14  1.5546e+13  < 2e-16 ***
## as.factor(id)121  3.6364e-01  1.7626e-14  2.0630e+13  < 2e-16 ***
## as.factor(id)122 -1.9711e-14  1.7537e-14 -1.1240e+00  0.26131    
## as.factor(id)123  9.0909e-02  3.4712e-15  2.6190e+13  < 2e-16 ***
## as.factor(id)124 -9.0909e-02  1.7720e-14 -5.1302e+12  < 2e-16 ***
## as.factor(id)125 -9.0909e-02  3.4807e-15 -2.6118e+13  < 2e-16 ***
## as.factor(id)126  2.7273e-01  1.7572e-14  1.5521e+13  < 2e-16 ***
## as.factor(id)127  4.5455e-01  1.7745e-14  2.5615e+13  < 2e-16 ***
## as.factor(id)128  1.8182e-01  1.7555e-14  1.0357e+13  < 2e-16 ***
## as.factor(id)129 -3.5892e-15  3.4683e-15 -1.0348e+00  0.30100    
## as.factor(id)130  3.6364e-01  1.7545e-14  2.0725e+13  < 2e-16 ***
## as.factor(id)131 -9.0909e-02  3.4674e-15 -2.6218e+13  < 2e-16 ***
## as.factor(id)132  9.0909e-02  1.7575e-14  5.1727e+12  < 2e-16 ***
## as.factor(id)133 -1.8182e-01  3.4672e-15 -5.2440e+13  < 2e-16 ***
## as.factor(id)134 -2.7430e-15  3.4674e-15 -7.9110e-01  0.42909    
## as.factor(id)135  1.8182e-01  1.7538e-14  1.0367e+13  < 2e-16 ***
## as.factor(id)136 -1.8182e-01  3.4789e-15 -5.2263e+13  < 2e-16 ***
## as.factor(id)137  9.0909e-02  1.7585e-14  5.1697e+12  < 2e-16 ***
## as.factor(id)138 -3.6364e-01  3.4694e-15 -1.0481e+14  < 2e-16 ***
## as.factor(id)139 -2.7273e-01  3.4673e-15 -7.8657e+13  < 2e-16 ***
## as.factor(id)140 -1.5949e-14  1.7538e-14 -9.0940e-01  0.36336    
## as.factor(id)141 -2.7273e-01  3.4702e-15 -7.8591e+13  < 2e-16 ***
## as.factor(id)142  1.8182e-01  1.7637e-14  1.0309e+13  < 2e-16 ***
## as.factor(id)143 -9.0909e-02  3.4682e-15 -2.6212e+13  < 2e-16 ***
## as.factor(id)144 -2.7273e-01  3.4723e-15 -7.8544e+13  < 2e-16 ***
## as.factor(id)145  1.8182e-01  1.7628e-14  1.0314e+13  < 2e-16 ***
## as.factor(id)146  1.8182e-01  1.7544e-14  1.0364e+13  < 2e-16 ***
## as.factor(id)147 -3.6364e-01  3.4687e-15 -1.0483e+14  < 2e-16 ***
## as.factor(id)148 -2.7273e-01  3.5215e-15 -7.7447e+13  < 2e-16 ***
## as.factor(id)149  2.7273e-01  1.7546e-14  1.5544e+13  < 2e-16 ***
## as.factor(id)150  1.8182e-01  1.7583e-14  1.0341e+13  < 2e-16 ***
## as.factor(id)151 -4.3398e-15  3.4673e-15 -1.2516e+00  0.21100    
## as.factor(id)152 -2.7273e-01  3.4702e-15 -7.8591e+13  < 2e-16 ***
## as.factor(id)153 -2.1136e-14  1.7541e-14 -1.2050e+00  0.22851    
## as.factor(id)154 -1.8182e-01  3.4681e-15 -5.2426e+13  < 2e-16 ***
## as.factor(id)155  2.7273e-01  1.7673e-14  1.5431e+13  < 2e-16 ***
## as.factor(id)156 -1.8182e-01  3.4672e-15 -5.2440e+13  < 2e-16 ***
## as.factor(id)157  3.6364e-01  1.7539e-14  2.0733e+13  < 2e-16 ***
## as.factor(id)158 -1.8394e-14  1.7571e-14 -1.0469e+00  0.29541    
## as.factor(id)159 -1.8182e-01  3.4764e-15 -5.2301e+13  < 2e-16 ***
## as.factor(id)162 -3.3595e-15  3.4717e-15 -9.6770e-01  0.33345    
## as.factor(id)163  1.8182e-01  1.7542e-14  1.0365e+13  < 2e-16 ***
## as.factor(id)164  1.8182e-01  1.7633e-14  1.0311e+13  < 2e-16 ***
## as.factor(id)165  9.0909e-02  3.4707e-15  2.6193e+13  < 2e-16 ***
## as.factor(id)166 -9.0909e-02  3.4677e-15 -2.6216e+13  < 2e-16 ***
## as.factor(id)167 -9.0909e-02  1.7591e-14 -5.1680e+12  < 2e-16 ***
## as.factor(id)168  1.8182e-01  1.7571e-14  1.0347e+13  < 2e-16 ***
## as.factor(id)169 -1.8182e-01  3.4764e-15 -5.2301e+13  < 2e-16 ***
## as.factor(id)171  9.0909e-02  3.4756e-15  2.6156e+13  < 2e-16 ***
## as.factor(id)172  1.8182e-01  1.7572e-14  1.0347e+13  < 2e-16 ***
## as.factor(id)174 -3.6364e-01  3.4764e-15 -1.0460e+14  < 2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model, cluster = df[ , as.factor(id)])))),out='prop_white_model_table.html')
## 
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>nb_is_white</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)73</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)74</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)77</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)78</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)79</td><td>0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)80</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)81</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)82</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)83</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)84</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)85</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)86</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)87</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)88</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)89</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)90</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)91</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)92</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)93</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)94</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)95</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)96</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)97</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)98</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)99</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)100</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)101</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)102</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)103</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)104</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)105</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)106</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)107</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)108</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)109</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)110</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)111</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)112</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)113</td><td>-0.545<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)114</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)115</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)116</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)117</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)118</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)119</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)120</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)121</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)122</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)123</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)124</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)125</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)126</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)127</td><td>0.455<sup>**</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)128</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)129</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)130</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)131</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)132</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)133</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)134</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)135</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)136</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)137</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)138</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)139</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)140</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)141</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)142</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)143</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)144</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)145</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)146</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)147</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)148</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)149</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)150</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)151</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)152</td><td>-0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)153</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)154</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)155</td><td>0.273</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)156</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)157</td><td>0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)158</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)159</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)162</td><td>-0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)163</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)164</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)165</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)166</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)167</td><td>-0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)168</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)169</td><td>-0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)171</td><td>0.091</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)172</td><td>0.182</td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)173</td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)174</td><td>-0.364<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.211)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>0.636<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.149)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.096</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.007</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>0.494 (df = 980)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>1.073 (df = 97; 980)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
prop_white_model_no_id = df[, lm(nb_is_white ~ treatment)]
coeftest(prop_white_model_no_id,  vcov = vcovCL(prop_white_model_no_id))
## 
## t test of coefficients:
## 
##             Estimate Std. Error t value  Pr(>|t|)    
## (Intercept) 0.520000   0.021323 24.3870 < 2.2e-16 ***
## treatment   0.089848   0.030102  2.9848  0.002902 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model_no_id, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model_no_id, cluster = df[ , as.factor(id)])))),out='prop_white_model_no_id_table.html')
## 
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>nb_is_white</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>0.090<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.030)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>0.520<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(0.021)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.008</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.007</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>0.494 (df = 1076)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>8.900<sup>***</sup> (df = 1; 1076)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
df[,white_value_diff]
##    [1] -100000 -100000   -2000   -5000  -75000 -200000   60000  -50000  -10000
##   [10]   40000  -10000  -13000  -50000   -2000  -50000  -20000  -10000  -35000
##   [19]    5000 -500000  -15000  -50000 -200000   -8000    5000  -15000 -100000
##   [28]   75000    5000 -100000  -50000  -20000   -2250  -95000  -20000 -200000
##   [37]   25000  -10000  -40000   22000 -120000  -30000   -3000   20000    2000
##   [46]    8000   40000   -5000   40000  -29000   15000    5000  150000 -100000
##   [55]   40000   60000   30000  120000   25000    6000   -5000   10000   70000
##   [64]  -10000   -6000   10000    5000   75000    3000   25000  100000  -15000
##   [73]   75000   15000   50000   15000  -20000   28000   50000   15000    7500
##   [82]   20000   10000  300000   60000   40000  150000   65000   60000   50000
##   [91]   15000   25000   15000   15000  200000    5000  -20000  -50000   10000
##  [100]   -5000   70000  100000 -300000  -50000  -20000   55000    7500    8000
##  [109] -100000  -10000  -50000  -20000   20000  -32000    2000 -150000   -8500
##  [118]    3000   25000    3000  -15000  -30000   50000   25000    5000   35000
##  [127]  100000  -20000   -5500  -80000  -10000 -200000   10000   10000  -75000
##  [136]  -12000   22000  -25000   -7000  -12000   -5000   -2000  -30000   -5000
##  [145]   60000   90000   25000    5000   60000   55000   75000   30000   15000
##  [154]   25000    8000   -3500   20000    1000   65000   15000   50000   10000
##  [163]    2000  -50000    3300   12000   75000    1000   20000   25000  100000
##  [172]   60000   10000   35000   35000   10000    7000   25000   40000  150000
##  [181]  -22000   10000   10000    4000   -3000   45000   10000   25000    3000
##  [190]    7000   30000    5000  -30000  -39000   -5000  -20000  -55000 -200000
##  [199]  200000  -40000   15000   80000  -15000    6000   25000    1000   30000
##  [208]   20000  -15000   20000  -25000 -500000    3000  -10000    5000   -3000
##  [217]  -40000   15000   25000  -35000    5000   -8400 -100000   -7000   -7700
##  [226]    1000   50000 -250000  -55000  -20000  -30000  -17000   24000  -35000
##  [235]   10000   25000   -5000   -3000  -20000    5000   30000   45000   -5000
##  [244]    7500   45000  100000  -40000   40000  -20000  -35000    5000   16000
##  [253]    5000   -1000  -55000   -8000   20000  -15000    5000  -50000   10000
##  [262]  -15000   75000   -2000    7500   10000  100000   20000    5000  -11000
##  [271]   45000   15000   -2500   30000  100000  100000   20000   15000   40000
##  [280]  -14000    6000    6000   -5000  -50000   -5000   -2000   50000   -5000
##  [289]   30000  -60000  -25000   10000 -110000 -250000  -30000  -50000   20000
##  [298]  -40000  -25000   -8000  -70000  -25000   70000    5000   -4000  -40000
##  [307]  -20000 -200000    1100   12500  -75000   -5000   -2500  -15000   20000
##  [316]   20000  -20000  -35000  150000  -50000   -3200   10000 -100000 -100000
##  [325] -100000  -75000  -70000   35000   46000   -4000   12000  -75000   -5000
##  [334]    4000 -200000   25000   40000   50000   25000   15000  100000   50000
##  [343]   50000   30000   15000   60000   20000    4000   -5000    5000  120000
##  [352]   -5000 -100000    8000    5000  150000    9000   65000   25000   -3000
##  [361]   -2500   15000   50000   50000   20000   18000  -50000   12000   11000
##  [370]   -5000   40000  300000   40000   15000   10000   25000  220000   -6000
##  [379]   10000   50000   10000    8000  -40000   -5000   60000   20000   -2500
##  [388]   10000  125000  150000  100000   10000   15000  -25000   20000   14000
##  [397]   25000  -20000   20000    8000    -500   15000   -1000  150000   -2000
##  [406]    7500   50000   12000  -10000   10000   75000  -30000   20000   80000
##  [415]   20000   25000    1500    5000  -50000  200000   15000   25000   30000
##  [424]   50000   25000    7000    5000   15000  -10000   -7000   30000   -5000
##  [433]  -10000   25000   15000   -7500   30000  -40000  -40000   20000    7000
##  [442]   35000   11000  -25000   50000   -1000   20000   -4000   20000   15000
##  [451]    2500 -100000    2700   15000   20000    1000   -5000   10000   20000
##  [460]  -15000   10000    8000  -50000  -10000   -3500   -1000   60000  200000
##  [469]   30000   20000  -15000   10000   50000   -6000   -4000  -10000   -5000
##  [478]   10000   30000   -5000   10000   48000   -5000    7000   75000  210000
##  [487]   80000   30000   17000   65000   12000  -15000   10000   -5000   55000
##  [496]    8000     500   30000   10000  125000    8000   12000   50000    5000
##  [505]   -2500   15000   50000  -15000   10000  -41000   75000   16000    2600
##  [514]   75000   40000  250000   35000  -10000  -40000    5000   45000   20000
##  [523]   10000   15000   -1000   10000   30000    5000   10000   10000   17000
##  [532]  -10000    1000    -300   -3000    7500    8000    1000    5000   -7000
##  [541]    1000    7000   -2000   -5000    1500   -2200     500    5000  -30000
##  [550]     500    5000   -2500   -4000   10000    3200   10000    5000     250
##  [559]    1500   -1500  -20000   -2200   -5000    -100    1000  -30000   -5000
##  [568]    4000   -6000    1000    -500   -2000    2000    3500     800   -1000
##  [577]   12000  -10000  -20000   65000   48000   15000   -5000    1500    5000
##  [586]  -10000   20000    1000   -8000   10000    5000    2500    4000    9000
##  [595]   -2000    7500    1000   50000   -5000    -500    5000    1000   -5000
##  [604]    5000    1450   10000    5000    -300    -500    3000  100000    4700
##  [613]   30000     400    5000   50000    5000    4000  -10000    1000    3000
##  [622]    7000   -2000    5600     500    -500   30000   25000  -10000  -50000
##  [631]   25000  -35000    7500    -700    5000   15000   -2000   -1000  -15000
##  [640]  -10000   -2000    7500    2000   -5000   -1200   -2500   -2000   -5000
##  [649]   -1000   -1000   -4000   -3000   -2500    5000   14500  -15000   -5000
##  [658]   -1000     500   -5000  -50000   -4225  -20000    -100   -2000  -10000
##  [667]  -10000  -10000   -6000       0   -3000   -8500    2000   -2900   -1000
##  [676]    -500   24000  -15000   20000   15000  -20000    8000    2000    1500
##  [685]   -2500  -15000    5000    3000    2000   -1500   14000   -5000    1000
##  [694]   -4000     900    4500     500  -10000  -10000    -500   10000   -2100
##  [703]    5000   -5000   -1500   20000    5000     600    1000    4500  -10000
##  [712]    3890    5000     500   -1000  -10000    5000    7500    2000    2000
##  [721]    1500    5500   -1000    4000     500    1000   15000   -5000   10000
##  [730]   10000   15000  -10000   11111    -300    2500   10000   10000    1000
##  [739]    7000    5000    1000   25000    2000    3000     250   -2500    1000
##  [748]   20000   10000    2000    5000   -2100    1500   10000   36000   15000
##  [757]    5000    -450    1000    2000  -25000   -1200   -5000    -500    2000
##  [766]  -40000     500    3000  -10000   -1500   -1500    1000    2500    2100
##  [775]     900  -30000    8500  -15000   10000  -35000   -2500   12000  -30000
##  [784]    1000   -5000  -15000   -5000   -2000   -5000   10000   -5000  -25000
##  [793]   -1000   -5000   -1000   -6000    1500   50000  -20000    2500  -50000
##  [802]    2300   -8000  -15000  -31000  -20000   -5000     750   -1000    2000
##  [811]  125000   -2575  -10000    -300   -1000   50000   -5000   -2000   -4000
##  [820]   -3000   -1500   -3000  -15000   -3100   -2500   -1000  -22000   15000
##  [829]   20000   50000  -45000   10000   50000    2000    5000   -5000    1000
##  [838]    1000    3000   -7000    3000   -5000   -3000  -30000    2300    4000
##  [847]    1000  -10000  -10000     750   15000   -3500    3000  -10000   -4500
##  [856]   20000  -10000     500    1500   -3000 -150000    1769   10000     200
##  [865]   -1500 -100000   -5000    5000    5000       0    1500    1250   10000
##  [874]    1400   -1000     800  -50000  -10000  -20000  -35000   13000  -20000
##  [883]     500   -1300    3000    5000    1000    2000    2000   -2000    1000
##  [892]    5000    2000    2000    -300   -5000    -500  -10000  -10000     500
##  [901]   -6000   -1800   -4500    5000  -16000  -20000   -1000    -500   -2000
##  [910]    -500  -15000    -525   -5000      50   -1500   -5000   -5000   -2000
##  [919]  170000       0    -500   -1500    1000    2800     500    -300    6000
##  [928]  -10000   10000   15000   -5500    5000    -100    1750   -2500   -5000
##  [937]   15000    1000    5000    3000  -12000   -5000    2000   -3000   -5000
##  [946]   -8000    1000   20000  -20000    1000   20000    1500   -5000    5000
##  [955]   -2700   35000    5000     750   -2500   -2500   50000   -1200  -25000
##  [964]    1000     750   15000   10000    5000  -30000  -10000    1000  -17000
##  [973]   -3000    4000   -2500    3000  -10000    7500  -15000  -25000   26000
##  [982]  -15000     500    -500    2500    6000    2000   -2000    4000   -5000
##  [991]    3000   12000   -1000    2000    -750   -4000    -500  -10000  -30000
## [1000]    1000  -10000   -1200   -2500   10000    3900  -15000   -1000    -250
## [1009]    1000   -4000  -25000   -3980  -15000    -300    -500  -10000   -5000
## [1018]   -1000   -3000       0   -3000   -4750    1500   -8500   -1800   10000
## [1027]    6500  -10000   30000   25000   10000   10000    5555    -500    2000
## [1036]    5000    5000    2000    7500   -5000    2000    7500   -2000    4000
## [1045]     500   10000   -1500    5000  -40000     750  -15000   -3000   -7500
## [1054]    5000    5400   25000    5000    -250    2000    3000  -75000    2990
## [1063]   10000    1000   -1000  -10000   -5000   20000    7000     500    2250
## [1072]    2500    5000    5600     780     800   35000  -15000
value_model = df[, lm(white_value_diff ~ treatment + as.factor(id))]
coeftest(value_model,  vcov = vcovCL(value_model, cluster = df[ , as.factor(id)]))
## 
## t test of coefficients:
## 
##                     Estimate  Std. Error     t value Pr(>|t|)    
## (Intercept)       4.0909e+03  2.8437e-10  1.4386e+13   <2e-16 ***
## treatment        -2.7273e+03  7.3577e-10 -3.7067e+12   <2e-16 ***
## as.factor(id)73   8.6364e+03  6.7862e-10  1.2726e+13   <2e-16 ***
## as.factor(id)74  -1.3636e+03  8.3092e-10 -1.6411e+12   <2e-16 ***
## as.factor(id)77   2.3436e-10  2.9213e-10  8.0220e-01   0.4226    
## as.factor(id)78   2.7727e+03  6.7864e-10  4.0857e+12   <2e-16 ***
## as.factor(id)79   3.2727e+03  2.8667e-10  1.1416e+13   <2e-16 ***
## as.factor(id)80  -6.8182e+03  2.8784e-10 -2.3687e+13   <2e-16 ***
## as.factor(id)81   6.3636e+02  6.7967e-10  9.3629e+11   <2e-16 ***
## as.factor(id)82   3.6364e+04  6.8348e-10  5.3204e+13   <2e-16 ***
## as.factor(id)83  -1.7582e+02  2.8781e-10 -6.1088e+11   <2e-16 ***
## as.factor(id)84  -3.7136e+03  2.8784e-10 -1.2902e+13   <2e-16 ***
## as.factor(id)85  -3.0000e+03  2.8743e-10 -1.0437e+13   <2e-16 ***
## as.factor(id)86  -4.2273e+03  2.8774e-10 -1.4691e+13   <2e-16 ***
## as.factor(id)87  -1.2727e+04  8.6777e-10 -1.4667e+13   <2e-16 ***
## as.factor(id)88   1.6364e+04  6.7997e-10  2.4065e+13   <2e-16 ***
## as.factor(id)89   1.3636e+03  6.9048e-10  1.9749e+12   <2e-16 ***
## as.factor(id)90   1.3636e+03  2.8795e-10  4.7357e+12   <2e-16 ***
## as.factor(id)91  -3.4545e+03  2.8749e-10 -1.2016e+13   <2e-16 ***
## as.factor(id)92   6.2727e+03  6.8222e-10  9.1946e+12   <2e-16 ***
## as.factor(id)93  -3.4091e+03  2.8735e-10 -1.1864e+13   <2e-16 ***
## as.factor(id)94   3.3182e+04  6.8284e-10  4.8594e+13   <2e-16 ***
## as.factor(id)95  -4.9545e+03  2.8838e-10 -1.7181e+13   <2e-16 ***
## as.factor(id)96  -3.0909e+03  2.8839e-10 -1.0718e+13   <2e-16 ***
## as.factor(id)97   3.9545e+03  6.8019e-10  5.8139e+12   <2e-16 ***
## as.factor(id)98  -1.6818e+03  2.8806e-10 -5.8384e+12   <2e-16 ***
## as.factor(id)99  -2.3182e+03  6.7920e-10 -3.4131e+12   <2e-16 ***
## as.factor(id)100 -3.7273e+03  2.8696e-10 -1.2989e+13   <2e-16 ***
## as.factor(id)101 -7.0000e+03  2.8948e-10 -2.4181e+13   <2e-16 ***
## as.factor(id)102 -1.0000e+04  6.7861e-10 -1.4736e+13   <2e-16 ***
## as.factor(id)103 -5.6364e+03  6.8069e-10 -8.2804e+12   <2e-16 ***
## as.factor(id)104 -4.5273e+03  2.8892e-10 -1.5670e+13   <2e-16 ***
## as.factor(id)105 -4.4727e+03  2.8818e-10 -1.5521e+13   <2e-16 ***
## as.factor(id)106  2.5455e+04  7.5566e-10  3.3685e+13   <2e-16 ***
## as.factor(id)107 -3.9091e+03  2.8808e-10 -1.3570e+13   <2e-16 ***
## as.factor(id)108 -2.3636e+03  6.8626e-10 -3.4442e+12   <2e-16 ***
## as.factor(id)109 -3.6364e+03  6.8983e-10 -5.2714e+12   <2e-16 ***
## as.factor(id)110 -2.6364e+03  6.7932e-10 -3.8809e+12   <2e-16 ***
## as.factor(id)111  5.4545e+03  2.8861e-10  1.8899e+13   <2e-16 ***
## as.factor(id)112 -2.2273e+03  6.7973e-10 -3.2767e+12   <2e-16 ***
## as.factor(id)113 -1.9182e+04  2.9254e-10 -6.5571e+13   <2e-16 ***
## as.factor(id)114 -3.4545e+03  2.8714e-10 -1.2031e+13   <2e-16 ***
## as.factor(id)115 -6.3636e+03  2.8774e-10 -2.2116e+13   <2e-16 ***
## as.factor(id)116 -9.6818e+04  6.7862e-10 -1.4267e+14   <2e-16 ***
## as.factor(id)117 -5.4000e+03  2.8777e-10 -1.8765e+13   <2e-16 ***
## as.factor(id)118 -3.6364e+01  6.7888e-10 -5.3564e+10   <2e-16 ***
## as.factor(id)119 -6.7727e+03  2.8896e-10 -2.3438e+13   <2e-16 ***
## as.factor(id)120  5.6364e+03  6.7907e-10  8.3001e+12   <2e-16 ***
## as.factor(id)121  1.2273e+04  7.6000e-10  1.6148e+13   <2e-16 ***
## as.factor(id)122 -2.6364e+03  6.8849e-10 -3.8292e+12   <2e-16 ***
## as.factor(id)123 -1.8182e+03  2.8537e-10 -6.3714e+12   <2e-16 ***
## as.factor(id)124  1.3636e+03  6.8026e-10  2.0046e+12   <2e-16 ***
## as.factor(id)125 -3.2955e+03  2.8490e-10 -1.1567e+13   <2e-16 ***
## as.factor(id)126  3.6364e+03  6.7861e-10  5.3585e+12   <2e-16 ***
## as.factor(id)127  3.8636e+04  7.7623e-10  4.9774e+13   <2e-16 ***
## as.factor(id)128  1.4091e+04  6.8650e-10  2.0526e+13   <2e-16 ***
## as.factor(id)129  1.8182e+03  2.8978e-10  6.2743e+12   <2e-16 ***
## as.factor(id)130  3.1818e+03  6.8236e-10  4.6629e+12   <2e-16 ***
## as.factor(id)131 -3.3636e+03  2.8761e-10 -1.1695e+13   <2e-16 ***
## as.factor(id)132 -5.8182e+02  6.8886e-10 -8.4461e+11   <2e-16 ***
## as.factor(id)133 -4.0818e+03  2.8784e-10 -1.4181e+13   <2e-16 ***
## as.factor(id)134 -3.8636e+03  2.8748e-10 -1.3440e+13   <2e-16 ***
## as.factor(id)135  1.9091e+04  6.8045e-10  2.8056e+13   <2e-16 ***
## as.factor(id)136 -4.2727e+03  2.8784e-10 -1.4844e+13   <2e-16 ***
## as.factor(id)137 -2.6364e+03  6.8315e-10 -3.8591e+12   <2e-16 ***
## as.factor(id)138 -1.2727e+04  2.8587e-10 -4.4521e+13   <2e-16 ***
## as.factor(id)139 -4.3233e+03  2.8976e-10 -1.4920e+13   <2e-16 ***
## as.factor(id)140 -9.1364e+02  6.8060e-10 -1.3424e+12   <2e-16 ***
## as.factor(id)141 -6.8182e+03  2.8812e-10 -2.3664e+13   <2e-16 ***
## as.factor(id)142 -2.7273e+03  7.1696e-10 -3.8039e+12   <2e-16 ***
## as.factor(id)143 -3.9227e+03  2.8983e-10 -1.3534e+13   <2e-16 ***
## as.factor(id)144 -4.0682e+03  2.8635e-10 -1.4207e+13   <2e-16 ***
## as.factor(id)145  1.3182e+04  6.7861e-10  1.9425e+13   <2e-16 ***
## as.factor(id)146  6.6818e+04  6.8959e-10  9.6895e+13   <2e-16 ***
## as.factor(id)147 -1.3182e+04  2.8666e-10 -4.5985e+13   <2e-16 ***
## as.factor(id)148 -5.8636e+03  2.8741e-10 -2.0401e+13   <2e-16 ***
## as.factor(id)149  3.9091e+03  6.7988e-10  5.7497e+12   <2e-16 ***
## as.factor(id)150  4.5455e+02  6.7897e-10  6.6947e+11   <2e-16 ***
## as.factor(id)151 -1.0455e+03  2.8550e-10 -3.6618e+12   <2e-16 ***
## as.factor(id)152  6.3636e+03  2.8519e-10  2.2314e+13   <2e-16 ***
## as.factor(id)153 -4.0909e+03  6.7929e-10 -6.0223e+12   <2e-16 ***
## as.factor(id)154 -5.0000e+03  2.8878e-10 -1.7314e+13   <2e-16 ***
## as.factor(id)155  1.4364e+04  6.8309e-10  2.1027e+13   <2e-16 ***
## as.factor(id)156 -4.1591e+03  2.9316e-10 -1.4187e+13   <2e-16 ***
## as.factor(id)157  3.2727e+04  6.8152e-10  4.8021e+13   <2e-16 ***
## as.factor(id)158  6.3636e+02  6.7867e-10  9.3767e+11   <2e-16 ***
## as.factor(id)159 -5.8636e+03  2.8680e-10 -2.0445e+13   <2e-16 ***
## as.factor(id)162 -3.8182e+03  2.8569e-10 -1.3365e+13   <2e-16 ***
## as.factor(id)163  3.4545e+03  6.8244e-10  5.0621e+12   <2e-16 ***
## as.factor(id)164  1.1818e+03  6.8167e-10  1.7337e+12   <2e-16 ***
## as.factor(id)165 -2.7727e+03  2.8502e-10 -9.7280e+12   <2e-16 ***
## as.factor(id)166 -4.5291e+03  2.8461e-10 -1.5914e+13   <2e-16 ***
## as.factor(id)167 -1.9091e+03  6.8011e-10 -2.8070e+12   <2e-16 ***
## as.factor(id)168  3.0000e+03  6.8600e-10  4.3732e+12   <2e-16 ***
## as.factor(id)169 -5.7000e+03  2.8566e-10 -1.9954e+13   <2e-16 ***
## as.factor(id)171  9.0909e+02  2.8713e-10  3.1661e+12   <2e-16 ***
## as.factor(id)172  9.5455e+03  6.8682e-10  1.3898e+13   <2e-16 ***
## as.factor(id)174 -7.9545e+03  2.8549e-10 -2.7863e+13   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(value_model, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(value_model, cluster = df[ , as.factor(id)])))),out='value_model_table.html')
## 
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>white_value_diff</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>-2,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)73</td><td>8,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)74</td><td>-1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)77</td><td>0.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)78</td><td>2,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)79</td><td>3,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)80</td><td>-6,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)81</td><td>636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)82</td><td>36,363.640<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)83</td><td>-175.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)84</td><td>-3,713.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)85</td><td>-3,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)86</td><td>-4,227.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)87</td><td>-12,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)88</td><td>16,363.640</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)89</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)90</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)91</td><td>-3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)92</td><td>6,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)93</td><td>-3,409.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)94</td><td>33,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)95</td><td>-4,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)96</td><td>-3,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)97</td><td>3,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)98</td><td>-1,681.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)99</td><td>-2,318.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)100</td><td>-3,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)101</td><td>-7,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)102</td><td>-10,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)103</td><td>-5,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)104</td><td>-4,527.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)105</td><td>-4,472.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)106</td><td>25,454.540</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)107</td><td>-3,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)108</td><td>-2,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)109</td><td>-3,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)110</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)111</td><td>5,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)112</td><td>-2,227.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)113</td><td>-19,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)114</td><td>-3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)115</td><td>-6,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)116</td><td>-96,818.180<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)117</td><td>-5,400.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)118</td><td>-36.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)119</td><td>-6,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)120</td><td>5,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)121</td><td>12,272.730</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)122</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)123</td><td>-1,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)124</td><td>1,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)125</td><td>-3,295.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)126</td><td>3,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)127</td><td>38,636.360<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)128</td><td>14,090.910</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)129</td><td>1,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)130</td><td>3,181.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)131</td><td>-3,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)132</td><td>-581.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)133</td><td>-4,081.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)134</td><td>-3,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)135</td><td>19,090.910</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)136</td><td>-4,272.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)137</td><td>-2,636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)138</td><td>-12,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)139</td><td>-4,323.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)140</td><td>-913.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)141</td><td>-6,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)142</td><td>-2,727.273</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)143</td><td>-3,922.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)144</td><td>-4,068.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)145</td><td>13,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)146</td><td>66,818.180<sup>***</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)147</td><td>-13,181.820</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)148</td><td>-5,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)149</td><td>3,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)150</td><td>454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)151</td><td>-1,045.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)152</td><td>6,363.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)153</td><td>-4,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)154</td><td>-5,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)155</td><td>14,363.640</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)156</td><td>-4,159.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)157</td><td>32,727.270</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)158</td><td>636.364</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)159</td><td>-5,863.636</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)162</td><td>-3,818.182</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)163</td><td>3,454.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)164</td><td>1,181.818</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)165</td><td>-2,772.727</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)166</td><td>-4,529.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)167</td><td>-1,909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)168</td><td>3,000.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)169</td><td>-5,700.000</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)171</td><td>909.091</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)172</td><td>9,545.455</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)173</td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">as.factor(id)174</td><td>-7,954.545</td></tr>
## <tr><td style="text-align:left"></td><td>(20,958.320)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>4,090.909</td></tr>
## <tr><td style="text-align:left"></td><td>(14,819.770)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.093</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.004</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>49,151.620 (df = 980)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>1.041 (df = 97; 980)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>
prop_white_model_no_id = df[, lm(white_value_diff ~ treatment)]
coeftest(prop_white_model_no_id,  vcov = vcovCL(prop_white_model_no_id))
## 
## t test of coefficients:
## 
##             Estimate Std. Error t value Pr(>|t|)  
## (Intercept)   238.98     779.32  0.3067  0.75917  
## treatment    5852.21    3049.54  1.9190  0.05524 .
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
stargazer::stargazer(prop_white_model_no_id, header = T, type='html', se = list(NULL,sqrt(diag(vcovCL(prop_white_model_no_id, cluster = df[ , as.factor(id)])))),out='prop_white_model_no_id_table.html')
## 
## <table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
## <tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
## <tr><td style="text-align:left"></td><td>white_value_diff</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">treatment</td><td>5,852.211<sup>*</sup></td></tr>
## <tr><td style="text-align:left"></td><td>(2,996.217)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td style="text-align:left">Constant</td><td>238.982</td></tr>
## <tr><td style="text-align:left"></td><td>(2,096.915)</td></tr>
## <tr><td style="text-align:left"></td><td></td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>1,078</td></tr>
## <tr><td style="text-align:left">R<sup>2</sup></td><td>0.004</td></tr>
## <tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.003</td></tr>
## <tr><td style="text-align:left">Residual Std. Error</td><td>49,177.020 (df = 1076)</td></tr>
## <tr><td style="text-align:left">F Statistic</td><td>3.815<sup>*</sup> (df = 1; 1076)</td></tr>
## <tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
## </table>